home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tptsr.zip
/
TSR.INT
< prev
next >
Wrap
Text File
|
1990-06-25
|
828b
|
47 lines
{
tsr.pas
6-25-90
Copyright 1990
John W. Small
All rights reserved
PSW / Power SoftWare
P.O. Box 10072
McLean, Virginia 22102 8072
(703) 759-3838
Use tsr.skl for a skeleton to program with this unit.
Compile/run tsr.dem for a demonstration of this unit.
}
unit tsr;
interface
uses crt, dos;
const
TSRcolor : boolean = true;
{ Popups can use this to determine color/mono modes. }
type
TSRproc = procedure;
TSRCommProc = procedure(optCh : char;
argSeg, argOfs : word);
procedure MakeTSR(PopupOptions, PopupID : string;
HotKeyCode, HotShift : byte;
StartUp, Popup, Wrapup : TSRproc;
OptionComm : TSRCommProc);
var
TSRandPopupOptions: string;
{ Popups can use this with CmdLnParams object }
implementation